home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / FOSSIL14.LIT < prev    next >
Text File  |  1990-01-13  |  1KB  |  32 lines
  1. *[FOSSIL14.LIT]***************************************************************
  2. * Description: Removes support for FOSSIL                                    *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB1.BAS                       NOTE: was FOSSIL15.LIT *
  5. * Selection Option: FOSSIL = OFF                                             *
  6. * Additional files: FOSSIL11.LIT,FOSSIL12.LIT,FOSSIL15.LIT                   *
  7. ******************************************************************************
  8. 59725 ' $SUBTITLE: 'CommPut -- Writes to communications port'
  9. ' $PAGE
  10. '
  11. '  NAME    -- CommPut
  12. '
  13. '  INPUTS  --   PARAMETER     MEANING
  14. '               Strng$        String to write
  15. '               ZFossil       Whether using Fossil driver
  16. '
  17. '  OUTPUTS --
  18. '
  19. '  PURPOSE -- Send string to comm port.  Recovers from errors.
  20. '
  21.       SUB CommPut (Strng$) STATIC
  22.       ON ERROR GOTO 65000
  23.       PRINT #3,Strng$;                                              ' KG092201
  24.       END SUB
  25. '  $SUBTITLE: 'Error Handling for separately compiled subroutines'
  26. '  $PAGE
  27. '
  28. '
  29. ' Error handling for the separately compiled subroutines of RBBS-PC
  30. '
  31. '
  32.